home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / READPSP1.INC < prev    next >
Text File  |  1984-07-13  |  323b  |  22 lines
  1.  
  2. PROCEDURE checkpsp;
  3.  
  4. VAR
  5.    i,n : INTEGER;
  6.  
  7. BEGIN
  8.    psp := '';
  9.    was_psp := FALSE;
  10.    n := MEM[cseg:$0080];
  11.    IF n <> 0 THEN
  12.    BEGIN
  13.       was_psp := TRUE;
  14.       FOR i := 2 TO n DO
  15.         psp := CONCAT(psp,CHR(MEM[cseg:i+$80]) );
  16.    END;
  17.  
  18. {   writeln(psp,LENGTH(PSP):10);
  19.    delay(2000);}
  20.  
  21. END;
  22.